home *** CD-ROM | disk | FTP | other *** search
- object foNBannerText: TfoNBannerText
- Left = 155
- Top = 24
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'Text properties'
- ClientHeight = 268
- ClientWidth = 419
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- OnActivate = FormActivate
- OnCreate = FormCreate
- OnPaint = FormPaint
- PixelsPerInch = 96
- TextHeight = 13
- object laNText: TLabel
- Left = 92
- Top = 168
- Width = 21
- Height = 13
- Caption = 'Text'
- end
- object laNName: TLabel
- Left = 32
- Top = 24
- Width = 50
- Height = 13
- Caption = 'Font name'
- end
- object laNStyle: TLabel
- Left = 152
- Top = 24
- Width = 45
- Height = 13
- Caption = 'Font style'
- end
- object laNSize: TLabel
- Left = 216
- Top = 25
- Width = 20
- Height = 13
- Caption = 'Size'
- end
- object laNFontAndText: TLabel
- Left = 32
- Top = 6
- Width = 112
- Height = 13
- Caption = 'Font and Text attributes'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsUnderline]
- ParentFont = False
- end
- object laNColourAttributes: TLabel
- Left = 288
- Top = 6
- Width = 99
- Height = 13
- Caption = 'Text colour attributes'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsUnderline]
- ParentFont = False
- end
- object laNSampleTitle: TLabel
- Left = 301
- Top = 168
- Width = 35
- Height = 13
- Caption = 'Sample'
- end
- object laNQuick: TLabel
- Left = 299
- Top = 37
- Width = 60
- Height = 13
- Caption = 'Quick colour'
- end
- object Label1: TLabel
- Left = 300
- Top = 53
- Width = 58
- Height = 13
- Caption = '24 bit colour'
- end
- object laNHTML: TLabel
- Left = 300
- Top = 69
- Width = 97
- Height = 13
- Caption = 'HTML named colour'
- end
- object laNBrowser: TLabel
- Left = 300
- Top = 85
- Width = 93
- Height = 13
- Caption = 'Browser safe colour'
- end
- object laNScreen: TLabel
- Left = 300
- Top = 102
- Width = 66
- Height = 13
- Caption = 'Screen colour'
- end
- object laNValue: TLabel
- Left = 305
- Top = 120
- Width = 27
- Height = 13
- Caption = 'Value'
- end
- object laNColour: TLabel
- Left = 363
- Top = 120
- Width = 30
- Height = 13
- Caption = 'Colour'
- end
- object buNOK: TButton
- Left = 13
- Top = 221
- Width = 75
- Height = 25
- Caption = 'OK'
- TabOrder = 0
- OnMouseDown = buNOKMouseDown
- end
- object buNCancel: TButton
- Left = 120
- Top = 222
- Width = 75
- Height = 25
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- object edNText: TEdit
- Left = 8
- Top = 188
- Width = 205
- Height = 21
- Hint = 'Text to appear on banner'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- Text = ' '
- OnChange = edNTextChange
- OnKeyPress = edNTextKeyPress
- OnKeyUp = edNTextKeyUp
- end
- object edNFontName: TEdit
- Left = 15
- Top = 40
- Width = 121
- Height = 21
- ReadOnly = True
- TabOrder = 3
- end
- object lbNFontName: TListBox
- Left = 15
- Top = 62
- Width = 121
- Height = 95
- ItemHeight = 13
- TabOrder = 4
- OnClick = lbNFontNameClick
- end
- object edNFontStyle: TEdit
- Left = 149
- Top = 40
- Width = 57
- Height = 21
- ReadOnly = True
- TabOrder = 5
- end
- object lbNFontStyle: TListBox
- Left = 149
- Top = 62
- Width = 57
- Height = 57
- ItemHeight = 13
- Items.Strings = (
- 'Regular'
- 'Italic'
- 'Bold'
- 'Bold Italic')
- TabOrder = 6
- OnClick = lbNFontStyleClick
- end
- object edNFontSize: TEdit
- Left = 215
- Top = 40
- Width = 37
- Height = 21
- TabOrder = 7
- OnExit = edNFontSizeExit
- OnKeyPress = edNFontSizeKeyPress
- OnKeyUp = edNFontSizeKeyUp
- end
- object lbNSize: TListBox
- Left = 215
- Top = 62
- Width = 37
- Height = 57
- ItemHeight = 13
- Items.Strings = (
- '8'
- '9'
- '10'
- '12'
- '14'
- '18'
- '20'
- '24')
- TabOrder = 8
- OnClick = lbNSizeClick
- end
- object cbNUnderline: TCheckBox
- Left = 152
- Top = 124
- Width = 97
- Height = 17
- Hint = 'Select to underline text'
- Caption = 'Underline text'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 9
- OnClick = cbNUnderlineClick
- end
- object cbNStrikeout: TCheckBox
- Left = 152
- Top = 144
- Width = 97
- Height = 17
- Caption = 'Strikeout text'
- TabOrder = 10
- OnClick = cbNStrikeoutClick
- end
- object paNSample: TPanel
- Left = 223
- Top = 187
- Width = 188
- Height = 60
- TabOrder = 11
- object imNSample: TImage
- Left = 1
- Top = 1
- Width = 186
- Height = 58
- Align = alClient
- AutoSize = True
- Stretch = True
- end
- object laNSample: TLabel
- Left = 37
- Top = 25
- Width = 3
- Height = 13
- Alignment = taCenter
- Layout = tlCenter
- end
- end
- object edNTextColour: TEdit
- Left = 289
- Top = 136
- Width = 59
- Height = 21
- CharCase = ecUpperCase
- MaxLength = 6
- TabOrder = 12
- OnExit = edNTextColourExit
- OnKeyPress = edNTextColourKeyPress
- OnKeyUp = edNTextColourKeyUp
- end
- object paNTextColour: TPanel
- Left = 360
- Top = 136
- Width = 40
- Height = 21
- TabOrder = 13
- end
- object buNQuick: TButton
- Left = 283
- Top = 38
- Width = 11
- Height = 11
- TabOrder = 14
- TabStop = False
- OnClick = buNQuickClick
- end
- object buN24bit: TButton
- Left = 283
- Top = 54
- Width = 11
- Height = 11
- TabOrder = 15
- TabStop = False
- OnClick = buN24bitClick
- end
- object buNHTML: TButton
- Left = 283
- Top = 70
- Width = 11
- Height = 11
- TabOrder = 16
- TabStop = False
- OnClick = buNHTMLClick
- end
- object buNBrowser: TButton
- Left = 283
- Top = 86
- Width = 11
- Height = 11
- TabOrder = 17
- TabStop = False
- OnClick = buNBrowserClick
- end
- object buNScreen: TButton
- Left = 283
- Top = 102
- Width = 11
- Height = 11
- TabOrder = 18
- TabStop = False
- OnClick = buNScreenClick
- end
- end
-